This command will apply a cube map to the specified object.

SET CUBE MAPPING ON Object Number, Face1, Face2, Face3, Face4, Face5, Face6

Object Number

Integer
The object number

Face1

Integer
The texture number 1

Face2

Integer
The texture number 2

Face3

Integer
The texture number 3

Face4

Integer
The texture number 4

Face5

Integer
The texture number 5

Face6

Integer
The texture number 6

This command does not return a value.

A cube map will give the impression of a reflective surface over the object. The images used specify a texture on each side of the object to be affected, which combine to create a 3D texture from which the reflective parts can be mapped to the object. Cube maps take up a lot of video memory so use this feature with care.

sync on : sync rate 60 : hide mouse:cls 0:color backdrop 0

fog on:fog color 0:set ambient light 50

ObjectNumber=2:ImageNumber=2

wire=0:trans=0:cull=0:fliter=0:light=0:fog=0:ambient=0

load image "sky\am1.bmp",11:load image "sky\am2.bmp",12

load image "sky\am3.bmp",13:load image "sky\am4.bmp",14

load image "sky\am5.bmp",15:load image "sky\am6.bmp",16

set global object creation 0

set dir "models"

load object "ast4.x",ObjectNumber

set object specular ObjectNumber,0

rotate object ObjectNumber,270,0,0

set dir ".."

set cube mapping on ObjectNumber,11,12,13,14,15,16

while mouseclick()<>2

set cursor 0,0

print "press 1 to set object wireframe";wire:if inkey$()="1" then wire=1-wire:set object wireframe ObjectNumber,wire

print "press 2 to set object transparency";trans:if inkey$()="2" then trans=1-trans:set object transparency ObjectNumber,trans

print "press 3 to set object cull";cull:if inkey$()="3" then cull=1-cull:set object cull ObjectNumber,cull

print "press 4 to set object filter";filter:if inkey$()="4" then filter=1-filter:set object filter ObjectNumber,filter

print "press 5 to set object light";light:if inkey$()="5" then light=1-light:set object light ObjectNumber,light

print "press 6 to set object fog";fog:if inkey$()="6" then fog=1-fog:set object fog ObjectNumber,fog

print "press 7 to set object ambient";ambient:if inkey$()="7" then ambient=1-ambient:set object ambient ObjectNumber,ambient

while scancode()<>0:endwhile

if mouseclick()=1 then yrotate object ObjectNumber,wrapvalue(object angle y(ObjectNumber)+1)

sync

endwhile

while mouseclick()=1:endwhile

delete object ObjectNumber

for t=11 to 16:delete image t:next t

end

BASIC3D Commands Menu
Index